LET 05H
MOV AL [01]
MOV BX AX
DEC AL
l: MUL BX AL
DEC AL
JNZ l